home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC9.PRO < prev    next >
Unknown  |  1995-11-22  |  193 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0c 00 44 65 63 6c 61 72 | 65 20 56 61 72 69 61 62 |..Declar|e Variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les.. |x as num|
|00000020| 62 65 72 0d 0a 65 6e 64 | 0d 0a 67 6c 6f 62 61 6c |ber..end|..global|
|00000030| 20 6e 75 6d 62 65 72 20 | 3d 20 30 0d 0a 66 6f 72 | number |= 0..for|
|00000040| 20 77 6f 72 6b 20 77 69 | 74 68 20 74 79 70 65 20 | work wi|th type |
|00000050| 3d 20 69 6e 70 75 74 2e | 74 79 70 65 0d 0a 20 20 |= input.|type.. |
|00000060| 20 78 20 3d 20 78 20 2b | 20 31 0d 0a 20 20 20 64 | x = x +| 1.. d|
|00000070| 65 6c 65 74 65 20 72 65 | 63 6f 72 64 0d 0a 6e 65 |elete re|cord..ne|
|00000080| 78 74 0d 0a 69 66 20 78 | 20 3e 20 30 20 74 68 65 |xt..if x| > 0 the|
|00000090| 6e 20 67 6c 6f 62 61 6c | 20 6e 75 6d 62 65 72 20 |n global| number |
|000000a0| 3d 20 31 0d 0a 0d 0a 0d | 0a 0d 0a 04 00 64 65 6c |= 1.....|.....del|
|000000b0| 65 74 65 20 74 79 70 65 | 20 20 20 20 20 20 20 20 |ete type| |
|000000c0| 20 | | | |
+--------+-------------------------+-------------------------+--------+--------+